home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / OpRxWind1.lzh / QPutBrushPT&ST.oprx < prev    next >
Text File  |  1993-02-04  |  3KB  |  85 lines
  1. /* QPutBrushPT&ST.oprx: ARexx script for OpalPaint to paste a brush in both
  2.  * the stencil and paint modes in the same position.  Use for a quick mask
  3.  * for text and other brushes, without having to worry about finding the
  4.  * exact place that you stamped your brush.  Stencil is done first, so the
  5.  * paint mode can be undone.  Invert the stencil and recolor text, etc.
  6.  * This is the somewhat quicker version - you chose the desired brush before
  7.  * running the script by clicking on B1, B2, B3, then run it.
  8.  ***** Brian Wind, February 3, 1993 *****
  9.  * Install in your OpalPaint rexx directory (opalpaint:rexx) or wherever
  10.  * you store your ARexx scripts (rexx:).  Use OpalPaint's ARexx Control Item
  11.  * to set this script to a function key (i.e. type the script name into one
  12.  * of the function key boxes).  Then make and select a brush in B1, B2, or
  13.  * B3.  Press Amiga key and function key together, and follow the directions.
  14.  * After running script, you can go to ST mode, invert the stencil, return
  15.  * to paint mode and recolor, rubthru or alter the area under the stamp.
  16.  * Note: using a small rectangular brush doesn't work quite right in
  17.  * OpalPaint 1.4.
  18.  */
  19.  
  20. address 'OpalPaint_Rexx'
  21.  
  22. options Results
  23.  
  24. /*SaveSetUp*/
  25.  
  26. AskBool "Click on the image to paste\nor choose Cancel to abort."
  27. if RC>5 | result==0 then exit
  28.  
  29.  
  30. /* Let user click on image to place brush */
  31. GetPoint
  32. if RC>5 then exit
  33. parse var result PX PY
  34.  
  35.  
  36. /* Next statement for debug purposes */
  37. /*askbool invST' 'bn' 'PX' 'PY*/
  38.  
  39. /*Busy*/
  40.  
  41. /* set to freehand drawing tool */
  42. FreeHand
  43.  
  44. /* turn on stencil mode, invert if chosen, put brush at selected position */
  45. WorkMode STENCIL
  46. PutBrush PX PY
  47.  
  48. /* flip to paint mode and turn off stencil to paint brush */
  49. WorkMode IMAGE
  50. StenEnable 0
  51. ColorSource MULTICOLOR
  52. PutBrush PX PY
  53.  
  54. /*NotBusy*/
  55.  
  56. /* To return your original setup (i.e. sten on, AL mode, tran etc.), remove
  57.  * the comment markers on the next line.  Be forewarned that this will not
  58.  * allow you to undo the last painting step */
  59. /*RestoreSetUp*/
  60.  
  61. /* or remove the comments around this group of commands to give a simple
  62.  * undo of stencil and paint (simple means that when the brush was stamped
  63.  * in ST mode it could have already masked some other detail in your
  64.  * stencil and this can not be undone */
  65. /*
  66. TB1="Click Cancel to undo the procedure.\n"
  67. TB2="The stencil will be stamped in reverse,\n"
  68. TB3="any detail covered up is already lost."
  69. AskBool TB1 || TB2 || TB3
  70. if RC>5 | Result==1 then exit
  71.     else
  72.       do
  73.         Undo
  74.         WorkMode STENCIL
  75.         InvertSten
  76.         PutBrush PX PY
  77.         InvertSten
  78.         WorkMode IMAGE
  79.         StenEnable 0
  80.       end
  81. RestoreSetUp
  82. */
  83.  
  84. exit
  85.